# NOT RUN {
mean.true <- 1/3
Pi.true <- c(1/5, 4/5)
kappa.true <- 0.5
m <- 10
r.mixlink.binom(n = 30, mean.true, Pi.true, kappa.true, m)
d.mixlink.binom(y = 5, m, mean.true, Pi.true, kappa.true)
d.mixlink.binom(y = 5, m, mean.true, Pi.true, kappa.true, log = TRUE)
p.mixlink.binom(y = 5, m, mean.true, Pi.true, kappa.true)
# }
Run the code above in your browser using DataLab